home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / modula2f.zip / MOUSTEST.MOD < prev    next >
Text File  |  1992-07-11  |  892b  |  36 lines
  1. MODULE MousTest;
  2.  
  3. FROM Mouse IMPORT CheckMouse, CursorOn, CursorOff, GetMouse, GetButton,
  4.                     SetRange;
  5. FROM Text IMPORT WriteCard, WriteLn, WriteString, SetCursor, Cls;
  6.  
  7. VAR buttons, x, y:CARDINAL;
  8.     left, mid, right:BOOLEAN;
  9.  
  10. BEGIN
  11.     Cls;
  12.     SetRange(10,10,100,100);
  13.     CheckMouse(buttons);
  14.     WriteCard(buttons,3);
  15.     WriteLn;
  16.     CursorOn;
  17.     GetMouse(x,y);
  18.     WriteCard(x,4);
  19.     WriteCard(y,4);
  20.     WriteLn;
  21.     REPEAT
  22.         GetButton(left, mid, right);
  23.         GetMouse(x,y);
  24.         SetCursor(10,5);
  25.         WriteCard(x,4);
  26.         WriteCard(y,4);
  27.         WriteLn;
  28.     UNTIL left OR mid OR right;
  29.     IF left THEN
  30.         WriteString('Left button was pressed');
  31.     ELSIF mid THEN
  32.         WriteString('Middle button was pressed');
  33.     ELSE
  34.         WriteString('Right button was pressed');
  35.     END; (* if *)
  36. END MousTest.